home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / Programming / Programming Languages / Pocket Forth 6 / Source / OtherResources.asm < prev    next >
Encoding:
Assembly Source File  |  1992-05-07  |  7.9 KB  |  343 lines  |  [TEXT/ASM ]
  1. ;  pForthRes.asm
  2. ; Fri Apr 29, 1988 09:47:46 v 0.4
  3. ; Mon May 27, 1991 15:53:35 update resources for 0.4.1
  4. ; Thu Jan 23, 1992 20:19:00 update resources for 0.5.2
  5. ; Sun Apr 12, 1992 23:58:00 update resources for 0.6
  6.  
  7. ; Version identification resource
  8. .ALIGN    2
  9. RESOURCE    'p4TH'    0 '' 32
  10.     DC.B    35,'Pocket Forth  0.6'
  11.     DC.B    13,'5/7/92  C.Heilman'
  12.  
  13. ; the WIND resource
  14. .ALIGN    2
  15. RESOURCE     'WIND' 128  'PocketForth'    32 ; purgable
  16.     DC.W    40,2,218,386    ; t,l,b,r
  17.     DC.W    4        ; no grow doc proc wo/zoom
  18.     DC.W    0        ; invisible
  19.     DC.W    $100        ; closable
  20.     DC.L    0
  21.     DC.B    12,'Pocket Forth'
  22.  
  23. ; MenuBar Resources
  24.  
  25. .ALIGN 2
  26. RESOURCE    'MENU'    1    'Apple Menu'
  27.     DC.W    1    ; Menu ID
  28.     DC.W    0    ; Width holder
  29.     DC.W    0    ; Height
  30.     DC.L    0    ; ID holder for std menu
  31.     DC.L    $FFFFFFFB
  32.     DC.B    1    ; Title length
  33.     DC.B    20    ; Apple symbol
  34.     
  35.     DC.B    19,'About Pocket Forth…'
  36.     DC.B    0    ; no icon
  37.     DC.B    0    ; no control key
  38.     DC.B    0    ; no marking character
  39.     DC.B    0    ; style
  40.  
  41.     DC.B    1    ; About length
  42.     DC.B    '-'
  43.     DC.B    0    ; no icon
  44.     DC.B    0    ; no control key
  45.     DC.B    0    ; no marking character
  46.     DC.B    0    ; style
  47.     
  48.     DC.B    0    ; End of this menu item
  49.     
  50. .ALIGN 2
  51. RESOURCE    'MENU'    2    'File Menu'
  52.     DC.W    2    ; Menu ID
  53.     DC.W    0    ; Width holder
  54.     DC.W    0    ; Height
  55.     DC.L    0    ; ID holder for std menu
  56.     DC.L    $15B    ; Enable 
  57.     DC.B    4    ; Title length
  58.     DC.B    'File'
  59.     
  60.     DC.B    5    ; Item text length
  61.     DC.B    'Open…'
  62.     DC.B    0    ; no icon
  63.     DC.B    'O'    ; control oh (that's the letter)
  64.     DC.B    0    ; no marking char
  65.     DC.B    0    ; plain style
  66.  
  67.     DC.B    1    ; Item text length
  68.     DC.B    '-'
  69.     DC.B    0    ; no icon
  70.     DC.B    0    ; no control key
  71.     DC.B    0    ; no marking char
  72.     DC.B    0    ; plain style
  73.  
  74.     DC.B    16    ; Item text length
  75.     DC.B    'Save Dictionary…'
  76.     DC.B    0    ; no icon
  77.     DC.B    'S'    ; no control key
  78.     DC.B    0    ; no marking char
  79.     DC.B    0    ; plain style
  80.  
  81.     DC.B    9    ; Item text length
  82.     DC.B    'Debugger…'
  83.     DC.B    0    ; no icon
  84.     DC.B    0    ; no control key
  85.     DC.B    0    ; no marking char
  86.     DC.B    0    ; plain style
  87.  
  88.     DC.B    1    ; Item text length
  89.     DC.B    '-'
  90.     DC.B    0    ; no icon
  91.     DC.B    0    ; no control key
  92.     DC.B    0    ; no marking char
  93.     DC.B    0    ; plain style
  94.  
  95.     DC.B    6    ; Item text length
  96.     DC.B    'Print…'
  97.     DC.B    0    ; no icon
  98.     DC.B    'P'    ; control P
  99.     DC.B    0    ; no marking char
  100.     DC.B    0    ; plain style
  101.  
  102.     DC.B    1    ; Item text length
  103.     DC.B    '-'
  104.     DC.B    0    ; no icon
  105.     DC.B    0    ; no control key
  106.     DC.B    0    ; no marking char
  107.     DC.B    0    ; plain style
  108.     
  109.     DC.B    4    ; Item text length
  110.     DC.B    'Quit'
  111.     DC.B    0    ; no icon
  112.     DC.B    'Q'    ; control Q
  113.     DC.B    0    ; no marking char
  114.     DC.B    0    ; plain style
  115.  
  116.     DC.B    0    ; End of this menu item
  117.  
  118. .ALIGN 2
  119. RESOURCE    'MENU'    3    'Edit Menu'
  120.     DC.W    3    ; Menu ID
  121.     DC.W    0    ; Width holder
  122.     DC.W    0    ; Height
  123.     DC.L    0    ; ID holder for std menu
  124.     DC.L    $7B    ; enable flags
  125.     DC.B    4    ; Title length
  126.     DC.B    'Edit'
  127.     
  128.     DC.B    4    ; Item text length
  129.     DC.B    'Undo'
  130.     DC.B    0    ; no icon
  131.     DC.B    'Z'    ; control Z
  132.     DC.B    0    ; no marking char
  133.     DC.B    0    ; plain style
  134.     
  135.     DC.B    1    ; Item text length
  136.     DC.B    '-'
  137.     DC.B    0    ; no icon
  138.     DC.B    0    ; no control key
  139.     DC.B    0    ; no marking char
  140.     DC.B    0    ; plain style
  141.     
  142.     DC.B    3    ; Item text length
  143.     DC.B    'Cut'
  144.     DC.B    0    ; no icon
  145.     DC.B    'X'    ; control ecks
  146.     DC.B    0    ; no marking char
  147.     DC.B    0    ; plain style
  148.     
  149.     DC.B    4    ; Item text length
  150.     DC.B    'Copy'
  151.     DC.B    0    ; no icon
  152.     DC.B    'C'    ; control C
  153.     DC.B    0    ; no marking char
  154.     DC.B    0    ; plain style
  155.  
  156.     DC.B    5    ; Item text length
  157.     DC.B    'Paste'
  158.     DC.B    0    ; no icon
  159.     DC.B    'V'    ; control V
  160.     DC.B    0    ; no marking char
  161.     DC.B    0    ; plain style
  162.  
  163.     DC.B    5    ; Item text length
  164.     DC.B    'Clear'
  165.     DC.B    0    ; no icon
  166.     DC.B    0    ; no control key
  167.     DC.B    0    ; no marking char
  168.     DC.B    0    ; plain style
  169.     
  170.     DC.B    0    ; End of Edit Menu
  171.  
  172. ; b&w icon resource
  173.     
  174. .ALIGN    2
  175. RESOURCE    'BNDL'    128 '' 32
  176.     DC.L    'p4TH'        ; signature
  177.     DC.W    0        ; resource id of sig.
  178.     DC.W    1        ; number of resource types -1
  179.  
  180.     DC.L    'FREF'
  181.     DC.W    1        ; number of mappings -1
  182.     DC.W    0,128        ; map 0 to fref 128
  183.     DC.W    1,129        ; map 1 to fref 129
  184.     
  185.     DC.L    'ICN#'
  186.     DC.W    1        ; number of mappings -1
  187.     DC.W    0,128        ; map 0 to icon 128
  188.     DC.W    1,0        ; map 1 to icon 0
  189.     
  190. .ALIGN    2
  191. RESOURCE    'FREF'    128 '' 32
  192.     DC.B    'APPL',0,0,0
  193.  
  194. RESOURCE    'FREF'    129 '' 32
  195.     DC.B    'TEXT',0,1,0
  196.  
  197. .ALIGN 2
  198. RESOURCE    'ICN#'     128 ' ' 32
  199.     ; icon
  200.     DC.L    $00007F80,$0001FFF0,$00033FF8,$00031FFC
  201.     DC.L    $00001FFE,$00001FFE,$00001FFF,$00FC3FFF
  202.     DC.L    $0F0223FF,$300221FF,$400238FF,$400254FF
  203.     DC.L    $818258FF,$8342803F,$8302407E,$8781383E
  204.     DC.L    $8301303C,$83012038,$87811E38,$8001017C
  205.     DC.L    $800100C2,$80010080,$AAA90130,$95520078
  206.     DC.L    $80020048,$EFFA0048,$380600FC,$800007EF
  207.     DC.L    $10000FFE,$02000FF0,$004B7FC0,$00000000
  208.     ; mask
  209.     DC.L    $00007F80,$0001FFF0,$00033FF8,$00031FFC
  210.     DC.L    $00001FFE,$00001FFE,$00001FFF,$00FC3FFF
  211.     DC.L    $0FFE3FFF,$3FFE3FFF,$7FFE3FFF,$7FFE7FFF
  212.     DC.L    $FFFE7FFF,$FFFEFFFF,$FFFE7FFE,$FFFF3FFE
  213.     DC.L    $FFFF3FFC,$FFFF3FF8,$FFFF1FF8,$FFFF01FC
  214.     DC.L    $FFFF00C2,$FFFF0080,$FFFF0130,$FFFE0078
  215.     DC.L    $FFFE0078,$FFFE0078,$380600FC,$800007FF
  216.     DC.L    $10000FFE,$02000FF0,$004B7FC0,$00000000
  217.  
  218. ; alert resources
  219.  
  220. .ALIGN    2
  221. RESOURCE    'ALRT'    257    'About'
  222.     DC.W    50,50,192,252    ; t,l,b,r
  223.     DC.W    257        ; DITL ID number
  224.     DC.W    $4444        ; Stages ($4444 = just display)
  225.     DC.W    $A80A        ; autoposition center parent
  226.  
  227. .ALIGN    2
  228. RESOURCE    'DITL'    257    'About'
  229.     DC.W    2        ; Number of items -1
  230.     
  231.     ; Item number 1: the userItem 'button'
  232.     DC.L    0        ; handle holder
  233.     DC.W    0,0,144,270    ; t,l,b,r
  234.     DC.B    0        ; useritem
  235.     DC.B    0
  236.  
  237.     ; Item number 2: the info. pict
  238.     DC.L    0        ; handle holder
  239.     DC.W    21,21,115,181    ; t,l,b,r
  240.     DC.B    $40,2        ; disabled+pict,length of following field
  241.     DC.W    128        ; id of PICT resource
  242.  
  243.     ; Item number 3: the hdlg
  244.     DC.L    0        ; handle holder
  245.     DC.W    $FFFE,$FFFE,$FFFE,$FFFE    ; off screen rect
  246.     DC.B    $81,4
  247.     DC.W    1,257        ; helpItem,id of hdlg
  248.  
  249. .ALIGN    2
  250. RESOURCE    'ALRT'    258    'RedAlert'
  251.     DC.W    170,15,265,325    ; t,l,b,r
  252.     DC.W    258        ; DITL ID number
  253.     DC.W    $4444        ; Stages
  254.     DC.W    $B00A        ; autoposition alert parent
  255.  
  256. .ALIGN    2
  257. RESOURCE    'DITL'    258    'RedAlert'
  258.     DC.W    1        ; Number of items -1
  259.  
  260.     ; Item number 1
  261.     DC.L    0        ; handle holder
  262.     DC.W    61,120,83,195    ; t,l,b,r
  263.     DC.B    4        ; type
  264.     DC.B    2,'Ok'
  265.  
  266.     ; Item number 2
  267.     DC.L    0        ; handle holder
  268.     DC.W    19,70,57,295    ; t,l,b,r
  269.     DC.B    136        ; type
  270.     DC.B    58,'An error occured, and the '
  271.     DC.B    'dictionary was not (re)entered. '
  272.  
  273. .ALIGN    2
  274. RESOURCE    'ALRT'    259    'SaveAlert'
  275.     DC.W    82,94,202,350    ; t,l,b,r
  276.     DC.W    259        ; DITL ID number
  277.     DC.W    $4444        ; Stages
  278.     DC.W    $B00A        ; autoposition alert parent
  279.  
  280. .ALIGN    2
  281. RESOURCE    'DITL'    259    'SaveAlert'
  282.     DC.W    3        ; Number of items -1
  283.  
  284.     ; Item number 1
  285.     DC.L    0        ; handle holder
  286.     DC.W    $51,$99,$65,$d3    ; t,l,b,r
  287.     DC.B    4        ; type
  288.     DC.B    2,'Ok'
  289.  
  290.     ; Item number 2
  291.     DC.L    0        ; handle holder
  292.     DC.W    $51,$35,$65,$6f    ; t,l,b,r
  293.     DC.B    4        ; type
  294.     DC.B    6,'Cancel'
  295.  
  296.     ; Item number 3
  297.     DC.L    0        ; handle holder
  298.     DC.W    $11,$1b,$45,$f3    ; t,l,b,r
  299.     DC.B    $88        ; type
  300.     DC.B    83,'Please confirm your choice to replace the '
  301.     DC.B    'current dictionary with the memory image.'
  302.  
  303.     ; Item number 4: the hdlg
  304.     DC.L    0        ; handle holder
  305.     DC.W    $FFFE,$FFFE,$FFFE,$FFFE    ; off screen rect
  306.     DC.B    $81,4
  307.     DC.W    1,259        ; helpItem,id of hdlg
  308.  
  309. .ALIGN    2
  310. RESOURCE    'PICT'    128
  311.     DC.W    $0162,$FFFF,$FFFF,$005E,$00A2,$1101,$A000,$82A1
  312.     DC.W    $0096,$000C,$0100,$0000,$0200,$0000,$0000,$0000
  313.     DC.W    $A100,$9A00,$08FF,$FC00,$0000,$3400,$0001,$000A
  314.     DC.W    $0000,$0000,$0011,$006B,$2C00,$0B00,$0208,$4E65
  315.     DC.W    $7720,$596F,$726B,$0300,$020D,$000C,$2E00,$0400
  316.     DC.W    $0001,$002B,$010C,$0F43,$6872,$6973,$2048,$6569
  317.     DC.W    $6C6D,$616E,$D573,$A000,$97A1,$0096,$000C,$0100
  318.     DC.W    $0000,$0200,$0000,$0000,$0000,$A100,$9A00,$0800
  319.     DC.W    $0200,$0000,$4D00,$0001,$000A,$002E,$0000,$0046
  320.     DC.W    $009D,$0D00,$0A2A,$2C18,$416C,$7465,$726E,$6174
  321.     DC.W    $6976,$6520,$7072,$6F67,$7261,$6D6D,$696E,$670D
  322.     DC.W    $2A0C,$1766,$6F72,$2053,$7973,$7465,$6D20,$3120
  323.     DC.W    $7468,$726F,$7567,$6820,$372E,$A000,$97A1,$0096
  324.     DC.W    $000C,$0100,$0000,$0200,$0000,$0000,$0000,$A100
  325.     DC.W    $9A00,$08FF,$FC00,$0000,$4F00,$0001,$000A,$0050
  326.     DC.W    $0000,$005D,$00A1,$2A16,$2176,$6572,$7369,$6F6E
  327.     DC.W    $2030,$2E36,$2020,$2020,$2020,$2020,$2020,$2020
  328.     DC.W    $2020,$2020,$352F,$372F,$3932,$A000,$97A1,$0096
  329.     DC.W    $000C,$0100,$0000,$0200,$0000,$0000,$0000,$A100
  330.     DC.W    $9A00,$08FF,$F900,$0000,$4F00,$0001,$000A,$0015
  331.     DC.W    $0000,$0032,$00A1,$0D00,$1828,$002A,$0001,$0C50
  332.     DC.W    $6F63,$6B65,$7420,$466F,$7274,$68A0,$0097,$A000,$83FF
  333.  
  334. .ALIGN 2
  335. RESOURCE    'SIZE'    $FFFF
  336.     DC.W    %0101100011000000    ; $58C0    
  337.     DC.L    $00020000
  338.     DC.L    $00010000
  339.  
  340. INCLUDE    System7Resources.txt    ; color icons and balloon help
  341.  
  342.     END
  343.